home *** CD-ROM | disk | FTP | other *** search
/ Maclife 22 / MACLIFE22-No-102-1997.ISO.7z / MACLIFE22-No-102.ISO / 連載 / GAME NOW / Abuse デモ版 / abuse.lsp < prev    next >
Lisp/Scheme  |  1996-08-01  |  1KB  |  49 lines
  1. ;; Copyright 1995 Crack dot Com,  All Rights reserved
  2. ;; See licensing information for more details on usage rights
  3.  
  4.  
  5. (perm-space)
  6.  
  7. (setq load_warn nil)
  8. (setq section 'game_section)
  9. (if (not (load "lisp/english.lsp"))             ;; load language specific stuff
  10.     (progn
  11.       (print "Please make sure you unzipped the game with the -d option")
  12.       (print "so that all directories get created properly.")      
  13.       (print "example : pkunzip -d abusXXXX.zip")      
  14.       (quit)))
  15. (setq load_warn T)
  16.  
  17.  
  18. (load "lisp/common.lsp")
  19. (load "lisp/userfuns.lsp")
  20. (load "lisp/options.lsp")     
  21. (load "lisp/startup.lsp")
  22. (local_load "lisp/input.lsp")
  23.  
  24. (load "lisp/sfx.lsp")
  25. (load "lisp/gates.lsp")
  26. (load "lisp/duong.lsp")
  27. (load "lisp/ant.lsp")
  28. (load "lisp/people.lsp")
  29. (load "lisp/weapons.lsp")
  30. (load "lisp/explo.lsp")
  31. (load "lisp/platform.lsp")
  32. (load "lisp/guns.lsp")
  33. (load "lisp/jugger.lsp")
  34. (load "lisp/flyer.lsp")
  35. (load "lisp/teleport.lsp")
  36. (load "lisp/general.lsp")
  37. (load "lisp/powerup.lsp")
  38. (load "lisp/doors.lsp")
  39. (load "lisp/light.lsp")
  40. (load "lisp/ladder.lsp")
  41. (load "lisp/switch.lsp")
  42.  
  43. (setq bad_guy_list (list DARNEL ANT_ROOF TRACK_GUN SPRAY_GUN JUGGER ROB1 WHO ROCKET FLYER GREEN_FLYER BOSS_ANT))
  44.  
  45. (gc)              ;; garbage collection perm space
  46. (tmp-space)       ;; execute game code in tmp space which is not GC'ed
  47.  
  48. (create_players DARNEL)
  49.